import Test.HUnit

-- dropTests :: (Int -> [a] -> [a]) -> Test
dropTests funcchar funcint =
    TestList["drop with remainder" ~: "obar" @=? funcchar 2 "foobar",
             "drop all" ~: "" @=? funcchar 6 "foobar",
             "drop past end" ~: [] @=? funcint 4 [1,2],
             "drop none" ~: [1, 2] @=? funcint 0 [1,2],
             "drop negative" ~: [1, 2] @=? funcint (-7) [1,2]]

tests = TestList[dropTests drop drop]
